use SurvivalProbability;
use Data::Dumper;
$a = SurvivalProbability->new('a','b','c');
$a->add_constant(3,.1);
$a->add_constant(1,2);
$a->add_constant(5,2);
print $a->add_individual('a',1,5);
print $a->add_individual('a',2,6);
print $a->add_individual('d',3,7);
print $a->add_individual('c',4,8);
print Dumper($a);
print Dumper($a->get_constant_cost);
print Dumper($a->get_species_cost('a'));
print Dumper($a->get_species_probability('a'));
print Dumper($a->get_species_probability('f'));

print Dumper($a->is_constant_invalid(1,20));
print Dumper($a->is_constant_invalid(2,20));
print Dumper($a->is_constant_invalid(5,20));
print Dumper($a->is_constant_invalid(10,20));